AmigActive 10/AACD 10.iso/AACD/Games/Enforce/Scripting/Script.txt

Text File | 2000-05-08 | 11KB | 567 lines

//=================================================================
//        MESSAGE FILES
//=================================================================

    msgfile("text/enforce.msg" ,lang)

//=================================================================
//        PROGRAMS
//=================================================================

//-----------------------------------------------------------------
//    PROTOTYPES FOR ENGINE API
//-----------------------------------------------------------------
    proto void Print(void var)
    proto void Println(void var)
    proto void PlayMap(string name)
    proto void PlayAnim(string name)
//    proto void ShowPicture(string name)
//    proto void PlayMusic(string name)
//    proto void StopMusic()
//    proto void PlayTrack(int num)
//    proto void Say(string text)
    proto int Rand()

    // Light functions
    proto void ChangeLight(int num,int intens)
    //proto int AddDynamicLight(vector origin,int intens,int delay)

    // Sound functions
    proto void InitSounds(int ambients)
    proto void SetAmbient(string name,int idx)
    proto void AddSound(string name,int pri,int flags,thing source)

    //cache object
    proto void CacheObject(string name)

    //things
    proto vector GetOrigin(thing th)
    proto void SetOrigin(thing th,vector orig)
    proto vector GetVelocity(thing th)
    proto void SetVelocity(thing th,vector vel)
    proto void SetFlags(thing th,int flag)
    proto void ClearFlags(thing th,int flag)
    proto int GetFlags(thing th)

    proto int CallTargetClients(thing th,thing actor)
    proto int AddTriggerInsider(thing th,thing actor)

    //tobject
    proto void SetFrameGroup(thing th,int n)

    //AI
    proto void Walk(thing th)
    proto void WalkTo(thing th,vector final)

//-----------------------------------------------------------------
//    Internal things
//-----------------------------------------------------------------
class door
    constant tkind  KIND_FUNC

    begin void Exception()
        eventmask(%0000000010110000010)
        door_i()
    end

end

//-----------------------------------------------------------------
class secretdoor
    constant tkind KIND_FUNC

    begin void Exception()
        eventmask(%0000000000110000010)
//        secretdoor_i()
    end

end

//-----------------------------------------------------------------
class lift
    constant tkind KIND_FUNC

    begin void Exception()
        eventmask(%0000000010111000000)
        lift_i()
    end

end

//-----------------------------------------------------------------
class button
    constant tkind KIND_FUNC

    begin void Exception()
        eventmask(%0000000010010000010)
        button_i()
    end

end

//-----------------------------------------------------------------
class portalsource
    constant tkind KIND_TRIGGER

    begin void Exception()
        eventmask(%0000000000001000010)
        //call all things connected to this portal
        CallTargetClients(this,other)
    end

end

//-----------------------------------------------------------------
class portaldest
    constant tkind KIND_NULL

    begin void Exception()
        eventmask(%0000000000100000000)
        //someone was sent thru portal
        GetOrigin(this)
        SetOrigin(other,GetOrigin)

        AddSound("sound/r_tele4.wav",20,SF_ONCE,this)
    end

end

//-----------------------------------------------------------------
class waypoint
    constant tkind KIND_TRIGGER

    begin void Exception()
        eventmask(%0000000000001000010)
//        waypoint_i()
    end

end

//-----------------------------------------------------------------
class wall
    constant tkind KIND_FUNC

    begin void Exception()
        eventmask(%0000000000110000010)
//        wall_i()
    end

end

//-----------------------------------------------------------------
class switch1
    constant tkind KIND_TRIGGER

    begin void Exception()
        eventmask(%0000000000001000010)
        if event & EV_TOUCH
            AddTriggerInsider(this,other)
            if AddTriggerInsider = TRUE
                AddSound("sound/switch02.wav",10,SF_ONCE,this);
            endif

            ClearFlags(this,TFL_ACTIVE)
        endif
    end

end

//-----------------------------------------------------------------
class switch2
    constant tkind KIND_TRIGGER

    begin void Exception()
        eventmask(%0000000000001000010)
        if event & EV_TOUCH
            AddTriggerInsider(this,other)
            if AddTriggerInsider = TRUE
                AddSound("sound/switch02.wav",10,SF_ONCE,this);
            endif
        endif
    end

end

//-----------------------------------------------------------------
    class secret
        constant tkind KIND_TRIGGER

        begin void Exception()
            eventmask(%0000000000001000010)
    //        secret_i()
        end

    end

//-----------------------------------------------------------------
    class changemap
        constant tkind KIND_TRIGGER

        begin void Exception()
            eventmask(%0000000000001000010)
    //        changemap_i()
        end

    end

//-----------------------------------------------------------------
    class wind
        constant tkind KIND_TRIGGER

        begin void Exception()
            eventmask(%0000000000001000010)
    //        wind_i()
        end

    end

//-----------------------------------------------------------------
    class earthquake
        constant tkind KIND_TRIGGER

        begin void Exception()
            eventmask(%0000000000001000010)
    //        earthquake_i()
        end

    end

//-----------------------------------------------------------------
    class light
        constant tkind KIND_NULL

        begin void Exception()
            eventmask(%0000000000100000000)
            light_i()
        end

    end

//-----------------------------------------------------------------
    class world
        constant tkind KIND_WORLD

        begin void Exception()
            eventmask(%0000000000000000000)
        end
    end

//-----------------------------------------------------------------
    class player
//accept all events
    constant tkind KIND_ACTOR

    object("obj/player.obj")

        framegrp(1)
            frame("Wait_1" ,80 ,0)
            frame("Wait_2" ,80 ,0)

        framegrp(2)
            frame("Wait_2" ,100 ,0)
            frame("Wait_2" ,30 ,0)
            frame("Wait_3" ,30 ,0)
            frame("Wait_4" ,30 ,0)
            frame("Wait_5" ,100 ,0)
            frame("Wait_5" ,30 ,0)
            frame("Wait_4" ,30 ,0)
            frame("Wait_3" ,30 ,0)
            frame("Wait_1" ,30 ,0)

        framegrp(3)
            frame("Walk_1" ,50 ,0)
            frame("Walk_2" ,50 ,0)
            frame("Walk_3" ,50 ,0)
            frame("Walk_4" ,50 ,0)
            frame("Walk_5" ,50 ,0)
            frame("Walk_6" ,50 ,0)
            frame("Walk_7" ,50 ,0)
            frame("Walk_8" ,50 ,0)

        begin void Exception()
            if event & EV_KEY
                AddSound("sound/sgun1.wav",20,SF_ONCE,this);
                return
            endif

//    if event & EV_
//        player_i()
        end

    end

//-----------------------------------------------------------------
    class monst_civil
        constant tkind KIND_PERSON

        object("obj/civil.obj")

            framegrp(1)
                frame("Wait_1" ,80 ,0)
                frame("Wait_2" ,80 ,0)

            framegrp(2)
                frame("Wait_2" ,100 ,0)
                frame("Wait_2" ,30 ,0)
                frame("Wait_3" ,30 ,0)
                frame("Wait_4" ,30 ,0)
                frame("Wait_5" ,100 ,0)
                frame("Wait_5" ,30 ,0)
                frame("Wait_4" ,30 ,0)
                frame("Wait_3" ,30 ,0)
                frame("Wait_1" ,30 ,0)

            framegrp(3)
                frame("Walk_1" ,50 ,0)
                frame("Walk_2" ,50 ,0)
                frame("Walk_3" ,50 ,0)
                frame("Walk_4" ,50 ,0)
                frame("Walk_5" ,50 ,0)
                frame("Walk_6" ,50 ,0)
                frame("Walk_7" ,50 ,0)
                frame("Walk_8" ,50 ,0)

        begin void Exception()
    //        civil_i()
        end

    end

//-----------------------------------------------------------------
    //global variables for light anims
    declare int Time10
    declare int Light10
    declare int Inc02
    declare int Light02

//-----------------------------------------------------------------
    begin void newframe()

        declare int light
        declare int rnd
        declare int inc

    //anim lights

        Rand()

        let rnd = Rand & 255

        //style 10
        let Time10 = Time10 - time
        if Time10 < 0
            if rnd > 127
                let Light10 = 255 - Light10
                ChangeLight(10,Light10)
            endif
            let Time10 = 15
        endif

        //style 1
        let light = rnd & 63
        let light = light + 192

        if light < 200
            let light = 200
        endif

        ChangeLight(1,light)

        //style 2 & 5
        let inc = Inc02 * time
        let Light02 = Light02 + inc

        if Light02 < 0
            let Light02 = 0
            let Inc02 = 0 - Inc02
        endif

        if Light02 > 255
            let Light02 = 255
            let Inc02 = 0 - Inc02
        endif

        ChangeLight(2,Light02)
        ChangeLight(5,Light02)

        newframe_i()
    end

//-----------------------------------------------------------------
    begin void postframe()
        postframe_i()
    end

//-----------------------------------------------------------------
    begin void initmap()
        initmap_i()
    end

//-----------------------------------------------------------------
    begin int Pokus(int parm1 ,int parm2)
        declare int ret

        let ret = parm1 + parm2

        return(ret)
    end

//-----------------------------------------------------------------
    begin string Test(string name)

        PlayMap(name)

        return(name)
    end


//-----------------------------------------------------------------
    class Trida
        declare int member1

    //constructor
        begin void Trida()
            let member1 = 666
        end

    //destructor
        begin void ~Trida()
            let member1 = 0
            Println("Ooooh no, I'm dead :-(")
        end

        begin int pfunc()
            Println(member1)
        end
    end

//-----------------------------------------------------------------
class Map
    declare string path

    begin void Map()
        let path = ""
    end

    begin void ~Map()
    end

    begin void Play(string map)
        declare string name

        Println(path)
        Println(map)

        let name = path + map

        Println(name)
        PlayMap(name)
    end

end

//-----------------------------------------------------------------
//    Main function
//-----------------------------------------------------------------
    begin void main()

    declare string mpath
    declare string map
    declare string apath
    declare string anim

    declare string pokus
    declare string star

    declare int res
    declare int p1
    declare int p2
    declare float p3
    declare vector v

    declare Trida obj

    declare Map test

    let v = "1 1 1"

    // init light anims
    let Time10 = 0
    let Light10 = 0
    let Inc02 = 4
    let Light02 = 0

    // init paths
    let mpath = "maps/"
    let apath = "anims/"

    CacheObject("sound/pain1.wav")

    InitSounds(2)

// First map
    SetAmbient("sound/wind2.wav",1)
    SetAmbient("sound/comp1.wav",0)

    let map = mpath + "pokus.map"
    PlayMap(map)

    let map = mpath + "base.map"
    PlayMap(map)

    return




    let test = new Map

    let test.path = "maps/"

    InitSounds(2)

// First map
    SetAmbient("sound/wind2.wav",1)
    SetAmbient("sound/comp1.wav",0)
    test.Play("pokus.map")
    delete test

    let obj = new Trida

    obj.pfunc()
    Println(obj.member1)
    let obj.member1 = 0

    obj.pfunc()

    delete obj

    return


    let p1 = 2
    let p2 = 3

    Pokus(p1 ,p2)

    let p1 = Pokus

    Println(p1)

    let p1 = 1
    let star = "*"

    tag loop
        if p1 = 10
            goto out
        endif
        Println(star)
        let star = star + "*"
        let p1 = p1 + 1
    goto loop

    tag out

    end
//-----------------------------------------------------------------